Program Tambah dan Hapus Tengah

Berikut adalah daftar Listingnya...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
Button1: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
BitBtn2: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
xxx=^abc;
abc=record
isi:string;
next:xxx;
end;
var
Form1: TForm1;
awal,bantu,baru:xxx;
i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
new(baru);
baru.next:=nil;
baru.isi:=Edit1.Text;
i:=i+1;
if awal=nil then
awal:=baru
else
begin
bantu:=awal;
for j:=1 to ((i div 2)-1) do
bantu:=bantu.next;
baru.next:=bantu.next;
bantu.next:=baru;
end;
Edit1.Clear;
ListBox1.Clear;
bantu:=awal;
while BANTU<>nil do
begin
ListBox1.Items.Add(BANTU.isi);
bantu:=bantu.next;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
awal:=nil;
end;

end.


Untuk Hapus tengahnya sedang dalam proses, harap menunggu ^^
Thanks