Salvando texto com o SaveDialog !

Estou usando o seguinte comando so que tipo ele fala que quer susbistituir o arquivo mas nao consigo fazer ele aparecer o nome do arquivo no messagebox ja tentei de varios geitos

+ pchar(SaveDialog.FileName) +

+ (SaveDialog.FileName) +

Como eu faço ?

procedure Tsalinha.SalvarClick(Sender: TObject);beginSaveDialog.Title := 'Salvar mensagem do chat';SaveDialog.DefaultExt:= 'doc';SaveDialog.Filter:='*.doc';if SaveDialog.Execute thenbeginif FileExists(SaveDialog.FileName) thenif Application.MessageBox('Atenção esse arquivo já exite deseja subistituir?'#13''#13' + pchar(SaveDialog.FileName) + ','Aviso',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;sala.plaintext:= true;sala.Lines.SaveToFile(SaveDialog.FileName);end;end;