Que el DbEdit1 se refleje en el DbEdit2

[Camilo]

Hola Amigos:

Necesito una ayudita en este sentido: tengo una Form donde capturo algunos datos mediante unos dbedit's debidamente conectados con los campos que corresponde.
el DbEdit1 esta ligado a un campo date y or lo tanto el EditMask de ese campo lo refleja el DbEdit asi __/__/____. Necesito que al ir digitando ONChange o al salid del DbEdit OnExit; en el DbEdit2 se me refleje el nombre del mes que se acaba de digitar en el DbEdit1.
Yo lo hago asi y por supuesto me da error. Mea ayudan por favor, mil gracias por su atencion.

Código Delphi [-]
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
DbEdit2.Text:=FormatDateTime('MMMM',DbEdit1.text);
end;

Perdon Trabajo D-7 Paradox

[jhonny]

Bueno, si fueran dos TEdit funcionaria asi:

Código Delphi [-]
Edit2.Text := FormatDateTime('MMMM', StrToDate(Edit1.text));

Pero como son dos DBEdit, entonces lo mejor es trabajar directamente con los campos que estan conectados a ellos, si quieres puedes usar algo parecido a los siguiente:

Código Delphi [-]
  DBEdit2.DataSource.DataSet.FieldByName(DBEdit2.DataField).AsString :=
  FormatDateTime('MMMM', DBEdit1.DataSource.DataSet.FieldByName(DBEdit1.DataField).AsDateTime);

O simplemente usas el nombre del campo con su respectivo dataset en cuestión, asi por ejemplo:

Código Delphi [-]
  DataSet1.FieldByName('NombreDelCampo').AsString :=
  FormatDateTime('MMMM', DataSet1.FieldByName('NombreDelOtroCampo').AsDateTime);

Espero me haya hecho entender y que te sirva de algo .

[Camilo]

Jhonny muchas gracias lo ensaye con todas las opciones y me funciona perfectamente.

En todo caso elegi la formula 3.

Mil y Mil Gracias.