procedure TRamazan.gorunmezform(formt:TForm;soldan,yukaridan,yukseklik,genislik:integer;buttongizle:Boolean;Gizle_Goster:Boolean;BorderStyle:TBorderStyle);
var
benim,tam,gorunuralan: THandle;
widtht,Xttt,Yttt: Integer;
begin
if not Gizle_Goster then
 formt.BorderStyle:=bsNone
else
 formt.BorderStyle:=BorderStyle;
 
 if formt.Height<yukseklik then
 formt.Height:=yukseklik;
 if formt.Width<genislik then
 formt.Width:=genislik;widtht := (formt.Width - formt.ClientWidth) div 2;
 benim := CreateRectRgn(0, 0, formt.Width, formt.Height);
 Xttt := widtht;
 Yttt := formt.Height - formt.ClientHeight - widtht;
 tam := CreateRectRgn(Xttt, Yttt, Xttt + formt.ClientWidth, Yttt + formt.ClientHeight);
 CombineRgn(benim, benim, tam, RGN_XOR);
 Xttt := Xttt + soldan;
 Yttt := Yttt + yukaridan;
 gorunuralan:=CreateRectRgn(Xttt,Yttt,Xttt+genislik , Yttt +yukseklik );
 CombineRgn(benim, benim, gorunuralan, RGN_XOR);
 SetWindowRgn(formt.Handle, benim, true);
 
 if buttongizle then
 begin
 SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);
 SetWindowLong(Application.Handle,GWL_HWNDPARENT,WS_EX_TOOLWINDOW);
 end;
end;