Developing.ru

var s:string;
i,m:integer;
buf:array[1..100] of string[50];
k,j:integer;
tmp:string;
f:byte;
begin
k:=0;
write('text:');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
if s<>' ' then tmp:=tmp+s
else
begin
if tmp<>'' then
begin k:=k+1;buf[k]:=tmp;tmp:='';end;
end;
i:=1;
i:=1;
while i<=k do
begin
j:=i+1;
while j<=k do
begin
if (buf[j]=buf) and (length(buf[j]) mod 2 =1) then
begin
for m:=j to k-1 do
buf[m]:=buf[m+1];
k:=k-1;
end
else j:=j+1;
end;
i:=i+1;
end;
for i:=1 to k do
write (buf,' ');
writeln;
end.

Вместо Write - Memo.Lines.Add
Вместо Readln(s) - s:=edit.text
Код засунуть в обработчик событий и все, остальное не меняется