Использование текстовых файлов для работы со строковыми данными.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
buf_st,st1,st2:string;
f:TextFile;
begin
memo1.Lines.LoadFromFile('D:\T.txt');
buf_st:=memo1.Lines.Text;
buf_st:=buf_st+' ';
for i:=1 to length(buf_st) do
                  Begin
                  if Pos(' ',buf_st)>0 then
                                           Begin
                                           if Length(copy(buf_st,1,Pos(' ',buf_st)-1)) mod 2 =0 then
                                           st1:=st1+copy(buf_st,1,Pos(' ',buf_st)-1)+' ';
                                           Delete(buf_st,1,Pos(' ',buf_st));
                                           end;
                End;
AssignFile(f,'D:\T1.txt');
rewrite(f);
writeln(f,st1);
closeFile(f);
end;

if Length(copy(buf_st,1,Pos(' ',buf_st)-1)) mod 2 =0 then

if Length(copy(buf_st,1,Pos(' ',buf_st)-1)) mod 2 <>0 then