TEdit - перенос текста, SetFocus

[Аббат]

Нужно разработать форму, с 1 кнопкой и двумя Edit-ами.
Задача, в один из эдитов вносим текс и при нажатии на кнопку этот текст переносится в другой эдит.
Первый эдит очищается, но курсор остаётся именно в нём для дальнейшего вбивания текста.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;

[Аббат]

Огромное спасибо, всё работает

[Аббат]

Есть ещё одна просьбочка.
В Edit1 вбивается сканированный текст, надо сделать так чтобы, если в поле уже есть текст, то сканированный текст не может быть добавлен пока поле Edit1 не будет очищено.

[Wiggle]

If Edit1.Text = '' then
begin
// Вбиваешь то, что отсканировал
end;

[Аббат]

Благодарчик

[Аббат]

Сообщение от Wiggle

If Edit1.Text = '' then
begin
// Вбиваешь то, что отсканировал
end;

А поподробней плиз

[SERG1980]

If Edit1.Text = '' then //если окно едита пустое то
begin
Edit1.Text:=твой отсканированный текст;
end;

[Аббат]

Сообщение от SERG1980

If Edit1.Text = '' then //если окно едита пустое то
begin
Edit1.Text:=твой отсканированный текст;
end;

Спасибо с этим разобрался, а вот ещё вопросик повот этому поводу
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;

При переносе текста из одного Edita в другой, надо чтобы он проверял, если второй эдит уже содержит текст, значит тот текст который в первом эдите не переносился пока второй эдит не будет очищен

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
begin
if length(Trim(edit2.text)) = 0 then
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;
end;