[deltas]

Код:

if Edit1.Text<>'' then begin
if Edit2.Text<>'' then Edit3.Text:='Text' else Edit2.Text:='Text'; 
end else Edit1.Text:='Text'

Ну что-то типа этого, писал по памяти, не проверял...