Ajuda no delphi

estou oprecisando fzer o seguinte:

Criar um formulário onde o usuário entre com a data no formato dd/mm/aaaa em um componente Edit e ao clicar de um botão seja exibido em um componente Label a data por extenso. Por exemplo, se o usuário digitar 30/08/2004 deverá ser exibido segunda-feira, 30 de agosto de 2004.
alguem poderia me ajudar???

não sei quase nada de programação
playboy 8) unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
function pegames(mes:string): string;
function pegadia(dia:integer): string;

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:= pegadia(dayofweek(strtodate(edit1.text))) + ', ' + copy(edit1.text,1,2) + ' de ' + pegames(copy(edit1.Text,4,2))+ ' de ' + copy(edit1.text,7,4);

end;

function TForm1.pegames(mes: string): string;
begin
if mes = '01' then result:='Janeiro';
if mes = '02' then result:='Fevereiro';
if mes = '03' then result:='Março';
if mes = '04' then result:='Abril';
if mes = '05' then result:='Maio';
if mes = '06' then result:='Junho';
if mes = '07' then result:='Julho';
if mes = '08' then result:='Agosto';
if mes = '09' then result:='Setembro';
if mes = '10' then result:='Outubro';
if mes = '11' then result:='Novembro';
if mes = '12' then result:='Dezembro';

end;

function TForm1.pegadia(dia: integer): string;
begin
if dia = 1 then result:='Domingo';
if dia = 2 then result:='Segunda-feira';
if dia = 3 then result:='Terça-feira';
if dia = 4 then result:='Quarta-feira';
if dia = 5 then result:='Quinta-feira';
if dia = 6 then result:='Sexta-feira';
if dia = 7 then result:='Sábado';

end;

end. Esse metodo que ele passou é "na marra". Que tal iniciar um vetor para os dias da semana e apra os nomes do mes. Aí vc coloca algo assim: no vetor mes, dentro do indice 5, está a string de maio, ai mes[5] contem maio. é pra ele aprender na "marra" tambem :twisted: valeu galera, vou testar esse comando aqui tá!! fico muito agradecido com tamanha boa vontade dos membros do forum!!

playboy 8) dsculpe minha ignorancia, mas coloquei o codigo, criei o label o botão e a caixa de testo, mas nada aconteceu, o que tenho que fazer para funcionar? ops:

playboy 8) Consegui, eu não tinha colocado o evento no clicar do botão!!! as vezes agente dá cada vacilo!! FUncionou 100000%% mais uma vez obrigado amigão, obrigado mesmo!!!
:lol:

play 8) ok... mas tenta entender o codigo, como o nosso amigo falou eu te passei o metodo pra fazer na marra. mas pode encontrar outras soluções que tenha que digitar menos ou que seja mais pratica....

abraços valeu garoto. Estou iniciando no delphi, sei que para me familiarizar com as funções vai levar um tempo, mas estou me esforçando. vou postar varias mensagens aqui, e conto com a ajuda de vcs..


abraços playboy 8)