Воспользуйтесь приведением типов.
Код:
procedure TForm24.FormCreate(Sender: TObject);
begin
if TComponent(Sender).Name = 'Button1'
then begin
ShowMessage('Нажата кномпочка');
end;
end;
Или если нужно присвоить значение .Text компоненту типа TEdit на форме:
Код:
procedure TForm24.FormCreate(Sender: TObject);
begin
if Sender is TEdit
then begin
TEdit(Sender).Text := 'Нажата кномпочка';
end;
end;