Передать значение компонента в другую форму

[DKENT]

Здраствуйте!
Возникло затруднеие с передачей данных на другую форму!

Form1

implementation
uses Unit2;

sMemo3.Lines.LoadFromFile('baza.txt');

Form2

implementation
uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
sMemo1.Clear;
sMemo1.Lines:=Form1.sMemo3.Lines;
end;

Ошибок не возникает, но и данные с Form1 непоступают в Memo.

А если открывать файл програмно то выдает ошибку что файл baza.txt занят другим процессом.
Действительно файл занят формой 1 и открыть его во 2 форме я немогу!

Подскажите правильное решение
Интересует Передача значения компонента с одной формы на другую)

[DKENT]

Вопрос решен тему можно закрыть!)