Я начинающий, подскажите пожалуйста, как...

unit Unit2;

interface
uses Windows, Messages, Forms;
type
  TFormHack=class(TForm)
  end;

  procedure ShowAndGo(z:TForm);
implementation

procedure ShowAndGo(z:TForm);
begin
  MessageBox(0,PChar(TFormHack(z).FindNextControl(z.ActiveControl,true,true,false).Name),PChar(Application.Title),mb_ok);
  TFormHack(z).FindNextControl(z.ActiveControl,true,true,false).SetFocus;  
end;

end.

type
    TAdvForm = class (TForm)
        //... реализуем все методы, которые понадобятся в различных модулях
        //... кроме методов можно еще много чего добавить ;)
    end;
    //...

type
    TForm1 = class (TAdvForm) // Заменяем TForm на TAdvForm
        //...
        // теперь доступны все методы TAdvForm
    end;

var c:integer;

if (c>a)and(c<b) then // с между a и b

If TmPrn.Checked = True Then
    Begin
      DefPrn:= printer.Printers[printer.printerindex];
        For PrnIdx:=0 to Printer.Printers.Count-1 do
      Begin
        Printer.PrinterIndex:=PrnIdx;
        if Printer.Printers[Printer.PrinterIndex] = 'Datamax E-4203' then
        frUpakList.ChangePrinter(PrnIdxOld,Printer.PrinterIndex);
        //TPrn := Printer.Printers[Printer.PrinterIndex];
      End;
     {  IniFile :=TIniFile.Create('WIN.INI');
      Try
          IniFile.WriteString('windows','device',DefPrn +','+ TPrn);
      Finally
        IniFile.Free;
      End;}

  frTUpakList.PrintToDefault := True;
  frTUpakList.Pages[0].pgOr := poLandscape;
  frTUpakList.Dictionary.Variables['Termo'] := oqTmp.FieldByName('termo').AsInteger;
  frTUpakList.Dictionary.Variables['TotalPlaces'] := LastPlace;
  frTUpakList.PrepareReport;
  frTUpakList.PrintPreparedReport('', 1, True, frAll);
  {IniFile :=TIniFile.Create('WIN.INI');
  Try
    //IniFile.DeleteKey('device',DefPrn +','+ TPrn);
    IniFile.WriteString('windows','device',DefPrn);
  Finally
   IniFile.Free;
  End;}
  End
 Else
  Begin
    PrnIdxOld:= Printer.PrinterIndex;
    DefPrn2:= printer.Printers[printer.printerindex];
    For PrnIdx:=0 to Printer.Printers.Count-1 do
      Begin
        Printer.PrinterIndex:=PrnIdx;
        if Printer.Printers[Printer.PrinterIndex] <> 'Datamax E-4203' then
        frUpakList.ChangePrinter(PrnIdxOld,Printer.PrinterIndex);
      End;
     {  IniFile :=TIniFile.Create('WIN.INI');
      Try
          IniFile.WriteString('windows','device',TPrn);
      Finally
        IniFile.Free;
      End;}
    frUpakList.PrintToDefault := True;
    frUpakList.Pages[0].pgOr := poLandscape;
    frUpakList.Dictionary.Variables['Termo'] := oqTmp.FieldByName('termo').AsInteger;
    frUpakList.Dictionary.Variables['TotalPlaces'] := LastPlace;
    frUpakList.PrepareReport;
    frUpakList.PrintPreparedReport('', 1, True, frAll);
  End;

if (ssCtrl in Shift) and (Key = VK_RETURN) then
  begin
    //выполняем то, что нужно
  end;

path1:=edit1.text; \\присваиваю переменной путь который расположен в эдите
findfirst(path1,faAnyFile, F); \\выполняю сам поиск
label5.Caption:=F.Name; \\ вывожу имя найденного файла в лабел
label6.Caption:=inttostr(F.Attr); \\ вывожу атрибуты найденного файла в лабел

Label1.Caption := IntToStr(GetFileCount(Edit1.Text, '.htm'));

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in ['0'..'9', #8]) then Key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 AcctName: PChar;
 DomainName:PChar;
 dwAcctName:Cardinal;
 dwDomainName:DWORD;
 ProcHand:  THandle;
 TokenHand:  THandle;
 buffer:PTOKEN_USER;
 bufsize:DWORD;
 eUse :SID_NAME_USE;

begin
   procHand:=OpenProcess(PROCESS_QUERY_INFORMATION, False, GetCurrentProcessId);
   OpenProcessToken(ProcHand,TOKEN_READ,TokenHand);
   GetTokenInformation(TokenHand,TokenUser,nil,0,bufsize);
   buffer:=PTOKEN_USER(GlobalAlloc(GMEM_FIXED,100));
   GetTokenInformation(TokenHand,TokenUser,buffer,bufsize,bufsize);
   LookupAccountSid('',buffer^.User.Sid,AcctName,dwAcctName,DomainName,dwDomainName,eUse);
   AcctName := PChar(GlobalAlloc(GMEM_FIXED,dwAcctName+1));
   DomainName := PChar(GlobalAlloc(GMEM_FIXED,dwDomainName+1));
   LookupAccountSid('',buffer^.User.Sid,AcctName,dwAcctName,DomainName,dwDomainName,eUse ) ;
   Label1.Caption := AcctName;
   Label2.Caption := DomainName;
   GlobalFree(cardinal(buffer));
   GlobalFree(cardinal(AcctName));
   GlobalFree(cardinal(DomainName));
 end;

procedure TForm1.get_username(var acct_name :string; var domain_name :string);
var
 AcctName: PChar;
 DomainName:PChar;
 dwAcctName:Cardinal;
 dwDomainName:DWORD;
 ProcHand:  THandle;
 TokenHand:  THandle;
 buffer:PTOKEN_USER;
 bufsize:DWORD;
 eUse :SID_NAME_USE;

begin
   procHand:=OpenProcess(PROCESS_QUERY_INFORMATION, False, GetCurrentProcessId);
   OpenProcessToken(ProcHand,TOKEN_READ,TokenHand);
   GetTokenInformation(TokenHand,TokenUser,nil,0,bufsize);
   buffer:=PTOKEN_USER(GlobalAlloc(GMEM_FIXED,100));
   GetTokenInformation(TokenHand,TokenUser,buffer,bufsize,bufsize);
   LookupAccountSid('',buffer^.User.Sid,AcctName,dwAcctName,DomainName,dwDomainName,eUse);
   AcctName := PChar(GlobalAlloc(GMEM_FIXED,dwAcctName+1));
   DomainName := PChar(GlobalAlloc(GMEM_FIXED,dwDomainName+1));
   LookupAccountSid('',buffer^.User.Sid,AcctName,dwAcctName,DomainName,dwDomainName,eUse ) ;
   acct_name := AcctName;
   domain_name := DomainName;
   GlobalFree(cardinal(buffer));
   GlobalFree(cardinal(AcctName));
   GlobalFree(cardinal(DomainName));
 end;