Delphi - extraer caracteres de lines de una memo con condic

Saludos a todos los del foro.

Necesitaría saber como puedo extraer de las files de un memo
recorriendolas y extrayendo una parte del texto con un criterio de busqueda.Por ejemplo:En la prinera fila voy hasta ".-" y extraigo los 5 caracteres sigientes, por ejemplo "nadar"despues paso a la segunda fila voy hasta ".-"y extraigo los 2 caracteres por ejemp "un", todo esto que extraigo lo paso a un fichero de texto, si detecta una palabra como "espacio" se traduce a un espacio en blanco. seria "nadar un". gracias y perdonen por extenderme.

Seria algo parecido a :

for i:=0 to Memo1.Lines.Count-1
begin
DondeEsta:=Pos('-',Memo1.Lines.String[i];
if DondeEsta>0 then
begin

end;
end;

Cheqa en las ayudas las funciones Copy, Pos, etc...