[MasterXP]

en el evento ONclick del Timage solo debes poner algo como esto:

Código Delphi [-]
  procedure TForm1.Image1Click(Sender: TObject);
  begin
  MiLabel.Caption:='Jojojojo';
  end;

salu2.