String unter 3 buchstaben löschen

[Lhid]

So also ich hab zwei memos, in einem steht der text und in den sollen die wieder rein nur halt die, die mehr als drei buchstaben haben, hab grad folgenden code:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
x : integer;
temp : string;
begin
x:= 0;
temp  := memo1.text;
      while pos(' ',temp) > 0 do
      begin

           if length(copy(temp,x - 1, Pos('',temp)-1)) < 3 then
           begin
           delete(temp,x,pos(' ',temp)-1);
           x := x + length(copy(temp,x -x,pos(' ',temp)))+1;
           Showmessage(inttostr(x));
           end
         else
          begin


         x := x + length(copy(temp,x, pos (' ',temp)))+1;
         Showmessage(inttostr(x));
         //delete(x);
         end;
               if x > length(memo1.text) then
               begin
               memo2.text := temp;
               exit;
               end;
      end;
end;

der löscht die aber nicht, sondern schreibt nur wo die sind, klappt noch ned ganz, das ich nur die wörter mit über 3 buchstaben hab.
Könntet ihr mir sagen, wie ich die jetzt rausfiltern kann?
bin dankbar für jede hilfe
Ist ja jetzt auch nicht mehr ganz so schwer...
Lhid