procedure TfrmWalkthru.FormShow(Sender: TObject);begin edtUserID.Text:= USERID_SAS;end;
frmWalkthru.Create(frmLogin);