with Application do begin MessageBox(msg1,'Look',[smbOK]); end; [Error] UErrorHandle.pas(103): Incompatible types: 'String' and 'PAnsiChar' [Error] UErrorHandle.pas(103): Incompatible types: 'Integer' and 'Set'

Hi, string to PAnsiChar 就直接加上 PAnsiChar 即可, integer 及 set 是因為你多加了 [] 所以會有問題, 拿掉就行了!    

with Application do
    begin
      MessageBox(PAnsiChar(msg1),'Look',smbOK);
    end;

with Application do
begin
  MessageBox(PChar(msg1), PChar('Look'), MB_OK);
end;

-- He just never quits.