// lisätään vaan kyseinen rivi.........

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.TextOut(10, 10, 'Marko Ylitalo');
  Canvas.TextOut(10, 30, 'Polttolinja 9 b 26');
  Canvas.TextOut(10, 50, '40520 Jyväskylä');
//  TextOut(Canvas.dc,10,10,PChar('Marko'),5);  // ???
end;