[johurgi]

Gracias por las soluciones, al final lo resolvi de la siguiente forma:

Código Delphi [-]
var
   frase:string;
   mensaje:array[0...255] of char;
begin
   frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros';
   strpcopy(mensaje,frase);
   Application.MessageBox(mensaje,'AVISO',MB_OK);
end;