[alexusankov]

Ваш русский настролько ужасен, что с трудом понимаю, что нужно сделать, и не вижу проблемы.
Ну например при успешном входе в систему в главной форме переменной ActiveUser и ID присваивается имя пользователя. Примерно так :

Код:

procedure Login()
begin
  ADOQuery1.SQL.Clear();
  ADOQuery1.SQL.Text := 'SELECT Password,ID FROM Users WHERE User = ' + #39 + Edit1.Text + #39;
  ADOQuery1.Open();
  if md5(Edit2.Text) = Q.FielValues['Password'] then begin 
    ActiveUser := Edit1.Text;
    ID := Q.FieldValues['ID'];
    //Используете свой код, Form2.ShowModal() итп..}
  end; 
end;

Дальше в любой форме примерно следующее :

Код:

Uses Unit1;
.....
Form2.Caption := 'Пользователь - ' + Form1.ActiveUser + ' [ID: ' + Form1.ID + ']' ;

В заголовке окна светится текущий пользователь и его ID.
-----