Проверка на пробелы

[SnowSin]

Подскажите пожалуйста, как сделать выглядит проверка на то что бы в Edit'е не было тупо одних пробелов, типо если в Edit'е одни пробелы, то выводится сообщение и Edit очищается

[Квэнди]

onkeydown/up/press onchange

[SnowSin]

Ну событие я знаю, а код

[KREGI]

SnowSin через if например

[KREGI]

if edit1.Text<>'' then
 begin
  ShowMessage('good');
 end
  else
   begin
    Edit1.Clear;
    ShowMessage('error');
   end;
end;

[SnowSin]

KREGI спасибо большое