como cortar texto de un edit

[superhopi]

Estoy imprimiendo un texto que hay en un edit.
El problemilla es que el texto puede ocupar mas de una linea, por lo que lo corto de la siguiente forma:
edit1.text:=texto;
if length(edit1.Text)>150 then
begin
texto:=copy(edit1.text, 1, 150);
memo1.Lines.Add(texto);
end;

Lo que quiero hacer ahora es imprimir el resto de texto que me queda, pero para ello quiero eliminar el texto que ya he impreso...
Habia probado haciendo:
delete (edit.text,1,150);
pero me da error.

¿como lo puedo hacer?

Gracias por anticipado.

[__cadetill]

el problema es que lo que le tienes que pasar por parametro es una variable, es decir, tienes que hacer algo asi....

var str : string;
begin
   str := edit.text;
   delete (str,1,150);
   edit.text := str;
end;

Espero te sirva