по второму
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
end;
а в первом не так должно быть?
Код:
if DM.TPriemPerevod.Modified then
begin
DM.TPriemPerevod.Post;
DM.TPriemPerevod.Append;
DBEdit48.SetFocus;
end;