[Warning] MainForm.pas(81): Variable 'newform' might not have been initialized
procedure TMain.N2Click(Sender: TObject);
var
newform:TMedInfo;
begin
if FindForm('药品信息')=false then
newform:=TMedInfo.Create(application);
newform.Caption:='药品信息';
end;
procedure TMain.N2Click(Sender: TObject);
var
newform:TMedInfo;
begin
if FindForm('药品信息')=false then
newform:=TMedInfo.Create(application);
newform.Caption:='药品信息';
end;
var
newform:TMedInfo;
begin
if FindForm('药品信息')=false then
begin ----------------> 加上
newform:=TMedInfo.Create(application);
newform.Caption:='药品信息';
end; ----------------->加上
end;