создавать RichEdit-ы

[StartMis]

Как реализовать следующие:
Нужно при запуске программы проверять, запущенна ли она или нет если да то загружать текст в RichEdit
запущенной программы
при этом если в RichEdit имеется текст, то создать еще компонент RichEdit и загрузить все в него.
далее повторять все выше сказанное, создавая RichEdit-ы.
В общем нужно создавать Новая страница 1...Новая страница N и корректно их сохранять.

[Terran]

Попробуйте так:

Procedure OnlyOne;
Begin
CreateMutex(Nil, True, '1');
If GetLastError <> 0 Then
Begin
Form1.RichEdit1.Text:='Ваш текст';
If Form1.RichEdit1.Text <> '' Then
Begin
//Проверка и создание RichEdit'a
End;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
OnlyOne;
End;