unit prgcomme;

interface

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

type
  TFormAskComment = class(TForm)
    Edit: TEdit;
    ButtonOK: TButton;
    ButtonCancel: TButton;
    EditId: TEdit;
    Label1: TLabel;
    SavePos1: TSavePos;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function DoAskComment(const q:string;var s,id:string):boolean;

//var
//  FormAskComment: TFormAskComment;

implementation

uses KFormPrg;


function DoAskComment(const q:string;var s,id:string):boolean;
var FormAskComment: TFormAskComment;
begin
  FormAskComment := TFormAskComment.Create(nil);
  FormAskComment.Edit.Text := s;
  FormAskComment.EditId.Text := id;
  FormAskComment.Caption := q;
  CenterForm(FormAskComment,'ButtonOK');
  Result := false;
  if ( FormAskComment.ShowModal = mrOK ) then begin
    Result := true;
    s := FormAskComment.Edit.Text;
    id := FormAskComment.EditId.Text;
  end;
  FormAskComment.Free;
end;

{$R *.DFM}

end.