Oder
if (StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]) = '')
statt der 1. Lösung.
Die Funktion
StringReplace haut dir dabei alle Leerzeichen raus.
(Wenn du über dieses Symbol mit der Maus fährst, wird dir ebenfalls empfohlen, in der Hilfe nachzuschlagen
)