Editor de texto.

[rauros]

Okey, el problema anterior ya lo posteé en varios (aún no me ayudó nadie :S). Ahora tengo otro problema. Quiero hacer un "autocompletar". El algoritmo lo tengo ya hecho, solo me falta un procedimiento. Mi código:

Código Delphi [-]
texto:=Uppercase(memo1.lines.strings[memo1.caretpos.y]);
if Texto ='IF' then begin
memo1.Lines.Strings[memo1.CaretPos.y]:='If';
memo1.Lines.Add('');
memo1.Lines.Add('');
memo1.Lines.Strings[memo1.CaretPos.y]:='EndIf';
end;

Pues con eso si hay algo escrito en medio lo salta. Un ejemplo:

I          //escribiendo "if"
destroy //algo escrito

Después

If
destroy

EndIf

Exactamente se quedaría así. ¿Cómo podría arreglarlo para que se quede así:?

If

EndIf
destroy

Muchas gracias a todos que me ayudáis siempre.