왼쪽의 공백을 모두 지우는 함수하나를 만드셔서..
검사해 보세요..


Function  DeleteSpcLeft(stText:String):String;
Begin
  Result:= stText;
  While Copy(Result, 1, 1) = ' ' do Delete(Result, 1, 1);
End;


  If DeleteSpcLeft(Edit1.text) = '' then ShowMessage('공백만 입력하셨습니다.');

From 류..