Hola darnnezt.
Por favor usa
títulos descriptivos de tu problema, así cuando otros usuarios (o vos mismo) busquen una solución similar,
les va a ser más sencillo encontrarla.
Lee la
guía de estilo .
Tu consulta:
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to ComponentCount -1 do
if Components[i] is TEdit then
TEdit(Components[i]).Text:= ''
else if Components[i] is TLabel then
TLabel(Components[i]).Caption:= '';
end;
Un saludo.