{------------------------------------------------------------------------------}
{
   Unit Name: StartOptionsForm
   Purpose  : To test options forms 
   Author   : Vesa Lappalainen
   Date     : 16.09.00
   Changed  :

   ToDo     :            
} 
{------------------------------------------------------------------------------}

unit StartOptionsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFormStartOptions = class(TForm)
    ButtonOptions: TButton;
    LabelResult: TLabel;
    procedure ButtonOptionsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStartOptions: TFormStartOptions;

implementation

uses edttestf;

{$R *.DFM}

procedure TFormStartOptions.ButtonOptionsClick(Sender: TObject);
begin
  if ( FormEditTest.ShowModal = mrOK ) then
    LabelResult.Caption := 'OK'
  else
    LabelResult.Caption := 'Cancel';
end;

end.