if length(Edit1.Text) = 0 then ...
это ведь тупо... лучше скажи, чем не устраивает, и чего хочешь добиться