[[Caral]]

Hola
Sin mucha complicacion a lo novato:

Código Delphi [-]
var
  Form1: TForm1;
  dato2: string;

implementation

{$R *.dfm}

procedure TForm1.dato;
begin
   if edit2.text = 'enero' then
   begin
   dato2:= '/01/';
   end else
   if edit2.text = 'febrero' then
   begin
   dato2:= '/02/';
   end else
   if edit2.text = 'marzo' then
   begin
   dato2:= '/03/';
   end else
   if edit2.text = 'abril' then
   begin
   dato2:= '/04/';
   end else
   if edit2.text = 'mayo' then
   begin
   dato2:= '/05/';
   end else
   if edit2.text = 'junio' then
   begin
   dato2:= '/06/';
   end else
   if edit2.text = 'julio' then
   begin
   dato2:= '/07/';
   end else
   if edit2.text = 'agosto' then
   begin
   dato2:= '/08/';
   end else
   if edit2.text = 'septiembre' then
   begin
   dato2:= '/09/';
   end else
   if edit2.text = 'octubre' then
   begin
   dato2:= '/10/';
   end else
   if edit2.text = 'noviembre' then
   begin
   dato2:= '/11/';
   end else
   if edit2.text = 'diciembre' then
   begin
   dato2:= '/12/';
   end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  dato;
  showmessage(edit1.Text+dato2+edit3.Text);
end;

Saludos