Ausschneiden mit Delete

[Kompon Ente]

Hallo,

ich lese aus der Registry HKCU\Software\Microsoft\Windows\CurrentVersion\Int ernet Settings\ den Wert ProxyServer.

Dieser sieht folgendermaßen aus:
ftp=195.100.85.159:3128;gopher=195.100.85.159:3128 ;http=195.100.85.159:3128;https=195.100.85.159:312 8

Jetzt möchte ich alles, was vor http= usw. steht wegschneiden.
Danach möchte ich bis zum : lesen und den Port in ein Extrafeld schreiben und ebenfalls bis zum ; lesen und den Rest wegschneiden.

Meine Abfrage sieht folgendermaßen aus:

Delphi-Quellcode:

    // prüfen, ob es sich um Zahlen handelt
    if (Ord(s[1])<=48) and (Ord(s[1])<=57) then
    begin
      // lesen bis zur Stelle, wo http= beginnt
      if pos(s,'http=') < 0 then
      begin
        // vorderen Teil wegschneiden
        Delete(s,6,pos('http=',s)-1-5);
        // in eine Variable kopieren
        s := copy(s,1,pos(':',s)-1);
        // usw.
        s := s + copy(s,1,pos(';',s)-1);
      end
      else
        MessageDlg('Kein HTTP-Proxy eingetragen!',mtInformation,[mbOk],0);
    end
    else
      ShowMessage('Rien ne va plius!');

Weiß jemand weiter? Ich nicht mehr..