Para pintarlo por código, puedes hacerlo con un código similar a éste:
Código Delphi
[-]
var
path:String;
begin
path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'Splash.BMP';
Image1.Picture.LoadFromFile(path);
Image1.Canvas.Font.Name := 'arial';
Image1.Canvas.Font.Size := 40;
Image1.Canvas.Font.Color := clWhite;
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut(10, 10, 'Texto de prueba');
Si lo que quieres es que el usuario pueda escribirlo, yo lo que haría sería simularlo con un control mientras el usuario lo escribe (TEdit o similar) y cuando acabe, pones el control invisible y pintas el texto de ésta forma.