Como Puedo Programar un Button como Clear

[ecfisa]

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.