Formun butonla sıfırlanması

[cmkare]

Merhaba. Formu normalde bir butona form1.free deyip formdan çıkıp sıfırlayabiliyoruz. Ama formdan çıkmadan ben ardardına kayıt gireceğim için formdan çıkmadan bir butona ne yazmam lazımki tüm bileşenler sıfırlansın?

[orhancc]

Kod: Tümünü seç

var
  i: Integer;
  Comp:TComponent;
begin
  for i := 0 to ComponentCount-1 do
    begin
       Comp := Components[i];
       if  Comp is TEdit then (Comp as TEdit).Text := 'Başlangıç Değeri';
    end;
end;