Essa é pedreira! PARTE III (matei o jacaré)

Matei o tal do jacaré....
:lol: taí a resolução do problema:

[i:7ff4adb146]var
i : integer;
x : integer;
MyStringList : TStringList;
begin
MyStringList := TStringList.Create;
for i := 0 to Memo1.Lines.Count -1 do
MyStringList.Add(Memo1.Lines[i]);

for x := 0 to MyStringList.Count -1 do
begin
if x = StrToInt(EditLinha.Text) then
begin
MyStringList.Strings[x] := EditTexto.Text;
end;
end;

Memo1.Clear;
for i := 0 to MyStringList.Count -1 do
Memo1.Lines.Add(MyStringList.Strings[i]);

MyStringList.Free;
end;[/i:7ff4adb146]

Obrigado a todos que ajudaram.