Delphi - TMemo

Nocesito saber como eliminar una linea definida en un TMemo, si esta comienza con tal texto. por ejemplo:
si la linea 1 empieza con "....." que la elimine.

De antemano gracias

procedure TForm1.Button1Click(Sender: TObject);
var
txtbuscar: string;
i: integer;
begin
txtbuscar := '.....';
with Memo1 do begin
For i := lines.count downto 0 do
If copy(lines[i], 1, length(txtbuscar)) = txtbuscar then lines.delete(i);
end;
end;