uses ShellAPI;

procedure ShowAbout;
begin
  ShellAbout(Form1.Handle, 'Напиши здесь название программы',
  'Заяви здесь о своих авторских правах на программу' + #13#10 +
  'можно в две строки', Application.Icon.Handle);
end;