замена текста в Edit

[designer999]

Здравствуйте
Как сделать замену текста в Edit ?

Например:
до

после

Делал вот так, но оно удаляет только букву h

s:=Edit1.Text;
while Pos('http://', s) <> 0 do begin
Insert('111111', s, Pos('http://', s));
Delete(s, Pos('http://', s), 1);
end;
Edit1.Text:=s;

[russian-stalker]

Delete(s, Pos('http://', s), length('http://'));

[W0LF]

Как я понял вам нужно заменить "http://" на другое? Тогда:

Edit1.Text := StringReplace(Edit1.Text, 'http://', '111111', [rfReplaceAll]);

[designer999]

W0LF спасибо