unit ufrmDadosCheques;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TfrmDadosCheques = class(TForm)
    lbl_nrcheque: TLabel;
    edt_nrcheque: TEdit;
    lbl_banco: TLabel;
    edt_banco: TEdit;
    lbl_praca: TLabel;
    edt_praca: TEdit;
    btn_ok: TButton;
    btn_cancel: TButton;
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    nr_cheque, banco, praca: string;
    { Public declarations }
  end;

var
  frmDadosCheques: TfrmDadosCheques;

implementation

{$R *.dfm}

procedure TfrmDadosCheques.btn_okClick(Sender: TObject);
begin
  nr_cheque := edt_nrcheque.Text;
  banco := edt_banco.Text;
  praca := edt_praca.Text;
end;

end.