Verwenden eines Default Wert in einer Procedure??????

[XaRidA_THEONLY]

Hey Leute...


Und wiedermal habe ich ein kleines Problem.

Ich habe mir folgende Prozedur erstellt:

Code:

function TDialogAboutForm.SetMessageText( MessageText : String; RowNo : Integer; DebugMode : Boolean ) : String;
////////////////////////////////////////////////////////////////////////////////
//
// SetMessageText
//
////////////////////////////////////////////////////////////////////////////////
begin
  If ( DebugMode ) Then CodeSite.EnterMethod( 'TDialogSplashForm.TSplashForm' );

  // Init
  ResultStr := 'OK';

  CodeSite.SendMsg( 'Parameter: ' + MessageText );


  case RowNo of
    1: VersionRzLabel.Caption := MessageText;
    2: SplashRzLabel.Caption  := MessageText;
  else
    SplashRzLabel.Caption  := MessageText;
  end;



  // Set result
  Application.ProcessMessages;
  CodeSite.SendNote( 'Result: ' + ResultStr );
  Result := ResultStr;

  If ( DebugMode ) Then CodeSite.ExitMethod( 'TDialogSplashForm.TSplashForm' );
end;

und diese mit dem Befehl

Code:

SetMessageText( PChar( SetMessageTextEdit.Text ),RowNoSpinEdit.IntValue);

ausgeführt.

Nun mein Problem:
ich möchte, dass die Funktion ohne die Parametereingabe

Code:

RowNoSpinEdit.IntValue

ausliesst welches meiner Labelfelder bearbeitet werden soll, also anhand eines Default Wertes, aber wie mache ich das????????

Wäre echt froh um Hilfe...

Thanks XaRidA