SL: TStringList;

function CheckPattern(s: string; c: char): boolean;
begin
   Result:=true;
   for i:=1 to Length(s) do
      if s[i]<>c then begin Result:=false; break; end; // если не пробел то строка не валидная
end;

SL:=TStringList.Create;
    for i:=0 to SL.Count-1 do
       if (Length(SL.Strings[i])=0) or (CheckPattern(SL.Strings[i], #32)) then SL.Delete(i);
SL.Free;