procedure GetAlphInput(var Key: Char; Text: string);register;
   external 'Laba6_1.dll';
procedure GetNumInput(var Key: Char; Text: string; CoursourPos: Integer);register;
   external 'Laba6_1.dll';
procedure Initialize(sgLineup: TStringGrid; fMainForm: TForm);register;
   external 'Laba6_1.dll';
procedure LoadToLineUp(Index: Integer; sgLineup: TStringGrid);register;
   external 'Laba6_1.dll';
function GetInPath(var FileName: string; odOpenFile: TOpenDialog): Boolean;register;
   external 'Laba6_1.dll';
function GetOutPath(var FileName: string; sdSaveFile: TSaveDialog): Boolean;register;
   external 'Laba6_1.dll';
procedure SaveInfoInFile(FileName: string; lbTeams: TListBox);register;
   external 'Laba6_1.dll';
procedure Add(Index: Integer; APlayerInfo: TPlayerInfo);register;
   external 'Laba6_1.dll';
function GetInfoFromFile(FileName: string; var League: TLeague; fMainForm: TForm;
   lbTeams: TListBox; sgLineup: TStringGrid): Boolean;register;
   external 'Laba6_1.dll';