type 
TForm1 = class(TForm) 
procedure FormClick(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
Type 
IArayuz = Interface(IUnknown) 
End; 
Type 
TMatematik = class(TObject) 
End; 

Var 
Form1: TForm1; 
implementation 
{$R *.dfm} 
procedure TForm1.FormClick(Sender: TObject); 
Var 
Nesne : TMatematik;  
begin 
Nesne := TMatematik.Create; 
end; 
end

type 
IArayuz = Interface(IUnknown) 
End;

type 
TMatematik = class(TInterfacedObject, IArayuz) 
End;

type 
IArayuz = Interface(IUnknown) 
Function Topla(X, Y : Integer): Integer; 
End;

type 
TMatematik = class(TInterfacedObject, IArayuz) 
Function Topla(Sayi1, Sayi2 : Integer): Integer; 
End; 
implementation 
function TMatematik.Topla(Sayi1, Sayi2: Integer): Integer; 
begin 
Topla := Sayi1 + Sayi2; 
end;

type 
TDeneme = class(TInterfacedObject, IArayuz) 
Function Topla(Sayi1, Sayi2 : Integer): Integer; 
End; 
implementation 
function TMatematik.Topla(Sayi1, Sayi2: Integer): Integer; 
begin 
Topla := Sayi1 + Sayi2; 
end; 
function TDeneme.Topla(Sayi1, Sayi2: Integer): Integer; 
Var 
X, Y : Integer; 
begin 
X := Sayi1 * Sayi1; 
Y := Sayi2 * Sayi2; 
Topla := X + Y; 
end;

type 
IIslemler = Interface(IUnknown) 
Function Bolme(X, Y : Integer): Integer; 
Function Carpma(X, Y : Integer): Integer; 
End; 
type 
IArayuz = Interface(IIslemler) 
Function Topla(X, Y : Integer): Integer; 
End; 
type 
TMatematik = class(TInterfacedObject, IArayuz) 
Function Topla(Sayi1, Sayi2 : Integer): Integer; 
Function Bolme(Sayi1, Sayi2 : Integer): Integer; 
Function Carpma(Sayi1, Sayi2 : Integer): Integer; 
End;