работа с 2 формами в free pascal

[kudzey]

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

[Stilet]

Пропиши в uses имя модуля второй формы. Получишь доступ к ее полям компонентам и свойствам.

uses unit2...
...
Form2.Edit.Text:=...

[kudzey]

перенос работает, как вернёть обратно строку?
вот код второй формы

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm2 }

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.FormCreate(Sender: TObject);
begin
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
    begin
  if MessageDlg('Удалить запись?', mtInformation,
  [mbOk,mbCancel],0) = mrOK
  then
  begin
    Form1.ListBox1.Items.delete(ListBox1.ItemIndex);
    Form1.ListBox1.Items.SaveToFile('FileName');
  end;
end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    begin
   if MessageDlg('Вставить запись?', mtInformation,
   [mbOk,mbCancel],0) = mrOK
  then
  begin
  Form1.ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.text);
  Form1.ListBox1.Items.SaveToFile('FileName');
  end;
end;

end;

procedure TForm2.Button3Click(Sender: TObject);
begin
    begin
    if MessageDlg('Заменить запись?',
    mtInformation,[mbOk,mbCancel],0) = mrOK
  then
  begin
    Form1.ListBox1.Items[ListBox1.ItemIndex]:= edit1.Text;
    Form1.ListBox1.Items.SaveToFile('FileName');
  end;
end;

end;

end.

пишет ошибки что не видет listbox1 и form1
а если я добавляю

uses
 Unit1, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

то пишет
unit2.pas(8,7) Fatal: Circular unit reference between Unit2 and Unit1

[evg_m]

перенос работает, как вернёть обратно строку?

ее не надо возвращать, ее надо "попросить" обратно.

x:=self.Listbox1.ItemIndex;
form2.Edit1.text:=self.Listbox1.Items[x];
form2.showModal;// "ждать" пока не отредактируем (не закроем form2)
self.Listbox1.Items[x]:=form2.Edit1.Text;

[kudzey]

при использование вашего кода всё работает, но немного не так
я использовал ваш код вот таки образом в первой форме

procedure TForm1.Edit1Change(Sender: TObject);
var
x:byte;
begin
  Form2.Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
x:=self.Listbox1.ItemIndex;
form2.Edit1.text:=self.Listbox1.Items[x];
form2.showModal;
self.Listbox1.Items[x]:=form2.Edit1.Text;

end;

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

[Stilet]

после того как я закрыл форму оно заменилось на отредактированное.

Это потому что form2.showModal;
Пока форма не закрыта код после этой строки выполняться не будет. Это правило модульных форм.

[northener]

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

а если я добавляю

uses
 Unit1, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

то пишет
unit2.pas(8,7) Fatal: Circular unit reference between Unit2 and Unit1

Правильно пишет.
Но раздел USES может существовать не только в секции interface, где он создаётся автоматом IDE, но и в секции implementation. Но тут уже ручками придётся поработать.

var
  Form2: TForm2;

implementation
uses
  unit1;
{$R *.lfm}