[Страдалецъ]

Воспользуйтесь приведением типов.

Код:

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;