Если занят Edit1, то текст запишется в Edit2

[Asblue]

При нажатии BitBtn в Edit1 записывается текст (например Edit1.Text:='abc').
Как сделать, чтобы, если в Edit1 уже есть текст, то при нажатии BitBtn он записывался в Edit2, а если занят Edit2, то в Edit3?
Подскажите пожалуйста

[Mad_Cat]

if edit1.text='' then edit1.text:=text else 
if edit2.text='' then edit2.text:=text else
edit3.text:=text;

[_Engine_]

Можно еще примерно таким способом, где вместо 10 использовать количество ваших TEdit

 var i : Integer;
begin
  for i := 0 to 10 do
    if assigned(FindComponent('Edit' + IntToStr(i))) then
     with (FindComponent('Edit' + IntToStr(i)) As TEdit) do
      if length(Text) = 0 then
        begin
          Text := '1';
          Break;
        end;

[Asblue]

СПАСИБООООООООО )))))))))))))))))))))