TMyThread = class(TThread)
     procedure execute; override;
  end;

var
  FrmMain: TFrmMain;

  MThread : TMyThread;

implementation

{$R *.dfm}

procedure TFrmMain.btn_disconnectClick(Sender: TObject);
begin
  OraSession.Disconnect;
  MThread.Terminate;
end;

procedure TFrmMain.But_connectClick(Sender: TObject);
begin
  MThread := TMyThread.Create;
  MThread.FreeOnTerminate := true;
  MThread.execute;
end;

procedure TMyThread.Execute;
begin
   FrmMain.OraSession.Connect;
   FrmMain.fncsleep.ParamByName('i_seconds').AsInteger:=4; // Funktion die einfach nur x-Sek. nix tut
   FrmMain.fncsleep.Execute; // (Sleep auf Oracle Seite) - Die Form darf dabei nicht einfrieren
end;