Проблема с выделением памяти

описание класса

type
THistory = class (TGeomControl)
Private
...
fName : string;
procedure SetfName (const Value : string);
public
property Name : String read fName write SetfName;
Constructor HisPoint (aName: String);
end;

implementation

constructor THistory.HisPoint(aName: String);
var
a:THistory;
begin
[ссылка появится после проверки модератором]

end;

procedure THistory.SetfName(const Value: string);
begin
fName:=Value;
end;

В юните прописываю
procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
mas:THistory;
begin
mas.Name:='safad';
...
end;

В режиме отладки показывает, что ошибка в procedure THistory.SetfName и ругается на память, мол не выделена.

подскажите, что сделать?

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.