Non hai riportato l'errore, ma suppongo si tratti di un Access Violation.
Hai dimenticato di creare un'istanza di TPicture per i tuoi campi all'interno del costruttore.
codice:
constructor TImageRollOver.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Fimageup := TPicture.Create;
Fimagenor := TPicture.Create;
Fimagepress := TPicture.Create;
end;
Devi inoltre inserire la distruzione nel metodo Destroy:
codice:
destructor TImageRollOver.Destroy;
begin
Fimageup.Free;
Fimagenor.Free;
Fimagepress.Free;
inherited Destroy;
end;
Ciao!