[Decoding]

Если я правильно понял твою мысль, то тебе нужно послать компоненту F1Book сообщение о нажатии клавиша TAB. Сделать это можно так:

Код:

procedure TForm1.F1Book1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #13 then
      keybd_event( VK_TAB, 0, 0, 0 );
end;

procedure TForm1.F1Book1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_RETURN then Key := 0;
end;

procedure TForm1.F1Book1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_RETURN then Key := 0;
end;

Это если текст вводится непосредственно в F1Book. Если текст вводится из другого компонента (например, из TEdit по нажатию та TButton), то к тому коду, который написан выше, добавь следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Key: char;
begin
   Key := #13;
   F1Book1.Text := Edit1.Text;
   F1Book1.SetFocus;
   F1Book1.OnKeyPress( Sender, Key );
end;