szTip:= PChar('Такое число: '+Edit1.Text);
Unit1.pas(275): Incompatible types: 'Array' and 'PAnsiChar'