procedure TForm1.Button1Click(Sender: TObject);
var
 i, i2, schetchik: integer;
 current_str: string;
begin
 for i:=0 to Memo1.Lines.Count-1 do
  begin
    schetchik:=0;

    if memo1.lines.strings[i]='' then
     begin
       memo1.lines.delete(i);
     end;

    for i2:=1 to length(Memo1.Lines.Strings[i]) do
     begin
       current_str:=Memo1.Lines.Strings[i];

       if current_str[i2]=' ' then inc(schetchik);

       if schetchik=length(Memo1.Lines.Strings[i]) then memo1.lines.delete(i);
     end;
  end;
end;