Delphi中的異形窗體實現可以通過以下步驟實現：

1. 創建一個新的窗體，并設置窗體的BorderStyle屬性為bsNone，以便隱藏窗體的邊框。

2. 在窗體上繪制所需的異形形狀。可以通過在窗體的OnPaint事件中使用Canvas對象的繪圖函數，如MoveTo、LineTo、Arc等，繪制自定義的形狀。

3. 使用窗體的Region屬性來設置窗體的形狀。可以通過創建一個新的區域Rgn，并使用窗體的SetWindowRgn函數將該區域應用到窗體上。例如：

var
  Rgn: HRGN;
begin
  Rgn := CreateEllipticRgn(0, 0, Width, Height); // 創建一個橢圓形區域
  SetWindowRgn(Handle, Rgn, True); // 將區域應用到窗體上
end;

通過調整CreateEllipticRgn函數的參數，可以創建不同形狀的區域，實現不同的異形窗體效果。

4. 如果需要拖動窗體，可以在窗體的MouseDown、MouseMove和MouseUp事件中實現拖動功能。例如：

var
  MouseDown: Boolean;
  MouseOffset: TPoint;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := True;
  MouseOffset := Point(X, Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if MouseDown then
    Left := Left + X - MouseOffset.X;
    Top := Top + Y - MouseOffset.Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := False;
end;

在MouseDown事件中記錄鼠標按下的位置，并將MouseDown標志設為True。在MouseMove事件中，如果MouseDown為True，根據鼠標的移動距離調整窗體的位置。在MouseUp事件中，將MouseDown標志設為False，表示鼠標已松開。

通過上述步驟，您可以實現Delphi中的異形窗體效果。