как сделать фокус ввода в free pascal

[kudzey]

доброго времени суток всем жедающим помочь.
собственно в чём заключается проблема, я создал программку в которой есть listbox из которого я переношу нужную строку в edit и там занимаюсь её редактированием, и по нажатию клавеши ентер строка заменяется. так вот мне надо чтоб вместе с заменой строки происходил перенос курсора или фокусса ввода в отредактированную строку.
буду очень благодарен за помощь.
вот код программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, SynHighlighterTeX, SynMemo, Forms, Controls,
  Graphics, Dialogs, StdCtrls, StrUtils;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure SaveDialog1CanClose(Sender: TObject; var CanClose: boolean);
    procedure SaveDialog1FolderChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then begin
   ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if SaveDialog1.Execute then begin
   ListBox1.Items.SaveToFile(SaveDialog1.FileName);
   end;
  end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  if MessageDlg('Удалить строку?', mtInformation,
  [mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items.delete(ListBox1.ItemIndex);
    ListBox1.Items.SaveToFile('FileName');
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if MessageDlg('Вставить строку выше выделенной?', mtInformation, [mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.text);
    ListBox1.Items.SaveToFile('FileName');
end;
  end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin

with ListBox1 do
  if (key=#13)and(ItemIndex<>-1) then begin
  Items[ItemIndex]:=TEdit(Sender).Text;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.Filter:=
'текстовые файлы|*.txt|Все файлы|*.*';
end;



procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: boolean);
begin

end;

procedure TForm1.SaveDialog1FolderChange(Sender: TObject);
begin

end;

end.

[Stilet]

with ListBox1 do
  if (key=#13)and(ItemIndex<>-1) then begin
  Items[ItemIndex]:=TEdit(Sender).Text;
  SetFocus();
 end;

[kudzey]

огромное спасибо за помощь, может быть вы знаете как сделать так чтоб можно было вписать в edit не всё строку а только отдельное слово, отредактировать, и вернуть назад?
просто для цели выделить одно слово я использую. вот такую вот вещь.

Edit1.Text := Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';',' ','.',',']));

но как вернёть после этого слово на прежнее место незнаю.
или возможно есть какие небудь другие методы для реализации подобного

[Utkin]

Чисто теоретически можно попробовать вогнать предложение в StringList и в качестве разделителя выбрать пробел. Тогда все будет разбито на слова, и будет к ним доступ как к элементам списка (удаление, изменение и пр.). Ну а затем уже можно представить данный список снова одним предложением. Данный вариант естественно не учитывает обработку знаков препинания.

[kudzey]

было бы отлично если бы вы дали хотя бы небольшой пример кода, как это сдалеть, или как это видете вы.

[Utkin]

Пишу без проверки, потому могут быть ошибки

var
    a: TStringList;
begin
    a:=TStringList.Create;
    a.Delemiter:=' ';
    a.DelemitedText:=b;  // Здесь b строка для разбора
    
    // Доступ к слову
   writeln(a[i]);
     
    // собрать строку
    b:=a.DelemitedText;
end;

Повторяю - это просто пример в каком направлении копать, рядом нет делфи для проверки работоспособности.

[kudzey]

здравствуйте, я так пологаю эту тему немного подредактировали, так вот у меня возникла проблема сделать то же самое но для listbox. т.е. по нажатию Enter переносить фокус ввода из listbox обратно в edit.