Funcao - criar duas com mesmo nome (overload)

Para criar 2 funcoes com mesmo nome mudando o tipo de parametro

use a diretiva OVERLOAD

function RetornaLetra(I: Integer): string; overload;

begin

  case I of

    1: Result := 'UM';

    2: Result := 'DOIS';

    else

  end;

end;

function RetornaLetra(C: Char): string; overload;

begin

  case C of

    #1: Result := 'UM';

    #2: Result := 'DOIS';

    else

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Caption := RetornaLetra(1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Caption := RetornaLetra(#1);

end;