//MURAT TURAN
//EDİTTE NEKADAR EDİT VARSA HEPSİNİ SIFIRLAMA.
// Kontrolün TAG değişkeni kullanılarak şarta bağlanabilirler.
var
i:integer;
begin
for i:=0 to ComponentCount -1 do
BEgin
if Components[i] is TEdit then
with TEdit(Components[i]) do
Clear;
end;