unable to invoke program 怎么解决

各位高手大侠把个忙，。怎么解决，，。。。我的电脑打不开lotus了一打开就出现unable to invoke program这样的提示

选择正确的程序打开

unit formdepartment;

interface

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, dbctrls, mask, grids, dbgrids, extctrls, db, dbtables;

type
tformdepartme = class(tform)
tbldepart: ttable;
tblvalid: ttable;
dsdepart: tdatasource;
dbndepart: tdbnavigator;
dbgdepart: tdbgrid;
btnquit: tbutton;
dbedepartid: tdbedit;
dbedepartname: tdbedit;
dbehead: tdbedit;
dbetelphone: tdbedit;
dbmdesc: tdbmemo;
label1: tlabel;
label2: tlabel;
label3: tlabel;
label4: tlabel;
private
{ private declarations }
public
{ public declarations }
end;

var
formdepartme: tformdepartme;

implementation

{$r *.dfm}

end.

procedure tformdepartme.togglemode;
var
strmsg:string;
procedure enableinput(enabled:boolean);
begin
dbgdepart.enabled:=not enabled;
dbedepartid.enabled:=enabled;
dbedepartname.enabled:=enabled;
dbehead.enabled:=enabled;
dbetelphione.enabled:=enabled;
dbmdesc.enabled:=enabled;
end;
begin
case tbldepart.state of
dsinsert.dsedit:
begin
enableinput(true);
dbndepart.visiblebuttons:=[nbpost,nbcancel];
dbedepartid.setfocus;
end;
else
enableinput(false);
dbndepart.visiblebuttons:=[nbfirst,nbprior,nbnext,nblast,nbinsert,nbdelete,nbedit,nbpost,
nbcancel,nbrefresh];
end;
if(tbldepart.state=dsedit)and hasclass(strmsg) then
begin
showmessage(strmsg);
dbedepartid.enable:=false;
end;
end;

end. //应该是少了这里吧.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息