Стек

[krikqwerty]

Проблема такая у меня есть стек, с добавлением все в порядке проблема с удалением.
Вот код добавления (на всякий случай):
в стек я добавляю преподавателей

procedure   TChair.AddTeach(aFam,aPost:string);
var T:TTeacher;
begin
T:=TTeacher.Create(aFam,aPost); 
T:=T.GetPrev;
First:=T;
Count:=Count+1;
end;

код удаления:

function   TChair.DeleteTeach:boolean;
var T:TTeacher;
begin
 result:=false;
 if First<>nil then
 begin
 T:=T.GetPrev;
 First:=T;
 Count:=Count-1;
 end;
 end;

здесь все время выбивает программу и ругается на строчку

First:=T;

Предмет: объектно ориентированное программирование Delphi

[Stilet]

и ругается

На древнеславянском?

у меня есть стек

Нет у тебя стека.

T:=TTeacher.Create(aFam,aPost);
T:=T.GetPrev;

Это что? Как очередной элемент узнает о соседе в очереди?

[krikqwerty]

да, кто стоит после его, связь образует

T:=T.GetPrev;

[krikqwerty]

так как мне написать? или исправить то что есть?