Converte a primeira letra em maiúscula

Coloque o código no envento onKeyPress de um Edit.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin
       with Sender as TEdit do
            if (SelStart = 0) or (Text[SelStart] = ‘ ‘) then
                 if Key in [‘a’..’z’] then Key := UpCase(Key);end;

Function IncAno

Incrementa e retorna a data do parâmetro Data com a qunatidade de anos do parâmetro valor.


function IncAno(Data: TDate; Valor: integer):TDate;var A,M,D: Word;begin
       DecoDeDate(Data,A,M,D);
       A:=A+Valor;
       Result:=StrToDate(FormatFloat('00/',D)+FormatFloat('00/',M)+IntToStr(A));end;


Usando:
procedure TForm1.BitBtn27Click(Sender: TObject);begin
        ShowMessage('Ano : '+DateToStr(IncAno(StrToDate(Edit2.Text),1)));end;

Function HoraToSegundos

Converte hora no formato (HH:MM) para segundos.


function HoraToSegundos(Hora:TTime):integer;var h,m,s,ms: Word;begin
       DecoDeTime(Hora,h,m,s,ms);
       Result:=((h*60)*60)+(m*60)+s;end;


Usando:
procedure TForm1.BitBtn26Click(Sender: TObject);begin
       ShowMessage(IntToStr(HoraToSegundos(StrToTime(Edit2.Text))));end;