title: Delphi default value for procedure parameter
body: <pre><code>procedure CaseListMyShares(search: String);
  </code></pre>
  
  <p>I have a procedure like this. Here is content :</p>
  
  <pre><code>procedure TFormMain.CaseListMyShares(search: String);
  var
    i: Integer;
  begin
    myShares := obAkasShareApiAdapter.UserShares('1', search, '', '');
    MySharesGrid.RowCount:= Length(myShares) +1;
    MySharesGrid.AddCheckBoxColumn(0, false);
    MySharesGrid.AutoFitColumns;
  
    for i := 0 to Length(myShares) -1 do
    begin
      MySharesGrid.Cells[1, i+1]:= myShares[i].patientCase;
      MySharesGrid.Cells[2, i+1]:= myShares[i].sharedUser;
      MySharesGrid.Cells[3, i+1]:= myShares[i].creationDate;
      MySharesGrid.Cells[4, i+1]:= statusText[StrToInt(myShares[i].situation) -1];
      MySharesGrid.Cells[5, i+1]:= '';
      MySharesGrid.Cells[6, i+1]:= '';
    end;
  end;
  </code></pre>
  
  <p>I want to call this function in two ways which are without any parameter and with a parameter. I found <code>overload</code> keyword for procedures but i dont want to write same function two times. </p>
  
  <p>If i call this procedure like <code>CaseListMyShares('');</code>, it works. </p>
  
  <p>But can i do below this in delphi ?</p>
  
  <pre><code>procedure TFormMain.CaseListMyShares(search = '': String);
  </code></pre>
  
  <p>and call:</p>
  
  <pre><code>CaseListMyShares();
  </code></pre>