1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function GetPasswordName(idhttp:TidHttp ;Bezeichnung:String):string;
var
a,i,stelle:integer;
name,text:string;
begin
text:=idhttp.Get(adresse);
stelle:=pos(Bezeichnung,text)-50;
for i:=0 to 100 do
        begin
        name:=name+text[stelle+i];
        end;
delete(name,1,pos('name="',name)-1);
delete(name,pos('name="',name),6);
a:=length(name)-pos('"',name);
delete(name,pos('"',name),a);
result:=name;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  name := //dein Text als String
  i := 0; //counter Variable als Integer
  repeat
    neuerText := name[i] + name[i+1] + name[i+2] + name[i+3];
    Inc(i);  //neuerText: String;
  until
    neuerText = 'type';
  i := i+5;  (*falls da eine " zuviel kommt schreibe hier statt 5 6*)
  repeat
    typ := typ + name[i]; //typ: String;
    Inc(i);
  until
    name[i] = '"'; //Anführungszeichen
  //dein Typ sollte nun von dem String typ angegeben                    

1:
2:
3:
4:
5:

repeat 
    neuerText := name[i] + name[i+1] + name[i+2] + name[i+3]; 
    Inc(i);  //neuerText: String; 
  until 
    neuerText = 'type'; //<---- diese Zeile wird markiert.