Свой текст в заголовке Caption

[Streb]

Здравствуйте, Уважаемые Форумчане!
Подскажите, пожалуйста, как сделать, чтобы при входе в программу в заголовке окна Caption была надпись: "Добро пожаловать Пользователь"
Пользователь определяется путем ввода логина и пароля.
Т.е. пользователь - некая переменная, которая, в зависимости от авторизации, меняется.
Примерно должно выглядеть так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'Добро пожаловать ' + <SELECT * FROM login>;
end;

SELECT * FROM login - выбирает пользователя, который до этого был введен.
Заранее спасибо!

[Streletz]

<SELECT * FROM login>;

Не скомпилится.
Сперва нужно подключиться к БД и сделать выборку которая выведет логин с помощью скалярного запроса.

SELECT usr_name FROM loginlist WHERE usr_log_in=:a

Приблизительно вот такой параметрический запрос должен быть.
После этого уже можно извлекать из выборки имя и присоединять его приветствию в Caption'е.
P.S. В наименованиях объектов БД такие слова как login, password, user и пр. лучше не использовать. Как правило у них особое назначение. В некоторых СУБД иногда прокатывает, но как правило нет.

[Streb]

А как добавить текст, введенный до этого в edit?
Подскажите, что не так в коде????

var a: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form9.edt1.Text:=a;
  Caption := 'Добро пожаловать ' + <a>;
end;

[Аватар]

Не так <a>.

Caption := 'Добро пожаловать ' + Form9.edt1.Text;

[Streb]

Пробовал, но выходит ошибка "raised exception class eaccessviolation with message 'access violation at address delphi"

[Serge_Bliznykov]

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

Пробовал, но выходит ошибка "raised exception class eaccessviolation with message 'access violation at address delphi"

Ну дык, событие на создание Form1, а обращаетесь к контролу edt1, расположенному на форме Form9. На 99.9% к этому моменту Form9 ещё не существует. Вот Вам и access violation...

[Streb]

Все равно не передается. Передается в caption только "Добро Пожаловать"

[Streb]

Все, получилось! Всем спасибо!