Большое спасибо!

Пожалуйста.

Проект пока заморожен к сожалению и не доведен до логического конца, но для примера пожалуйста.
База данных MySQL (в setting.ini указать свой host и username)

Ссылку на скачивание пришлю на e-mail

Большое спасибо!
Скачаю и рассмотрю

Ссылку на скачивание пришлю на e-mail

А совет от админа быстрее и красивше 

Добрый день!
Можете поделиться проектом с журналом посещений занятий.
Необходимо что-то подобное, для примера рассмотрел бы
Ваш проект. Заранее благодарен.

Я только показал, что при использовании Canvas надо перерисовывать форму.

И вам спасибо. Когда-нибудь пригодится.

Волшебное заклинание подействовало!

Волшебство пропадёт, если форму минимизировать и развернуть.

Можно вынести код в отдельную процедуру и вызывать её в GLForm_OnShow и GLForm_OnResize.

procedure CanvasShow ();
var
  Canvas:TCanvas;
  ww, hh: Integer;
begin
  GLForm.Canvas.Font.Size:=18;
  GLForm.Canvas.Font.Color:=clRed;
  GLForm.Canvas.Brush.Style:=bsClear;

  ww:=GLForm.Canvas.TextWidth('Hello World');
  hh:=GLForm.Canvas.TextHeight('Hello World');

  GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
  GLForm.Canvas.TextOut(80,60,'Hello World');
end;

procedure GLForm_OnResize (Sender: TObject);
begin
  Application.ProcessMessages;
  CanvasShow;
end;

procedure GLForm_OnShow (Sender: TObject; Action: string);
begin
  SendMessage(GLForm.Handle,274,61728,0);
  GLForm_OnResize(GLForm);
end;

Но если перетащить форму за пределы экрана, волшебство опять исчезнет.

Я только показал, что при использовании Canvas надо перерисовывать форму.

  SendMessage(GLForm.Handle,274,61728,0);
  Application.ProcessMessages;

Волшебное заклинание подействовало!

Исправила ошибки синтаксиса

procedure GLForm_OnShow (Sender: TObject; Action: string);
var
Canvas:TCanvas;
ww, hh: Integer;
begin
  GLForm.Canvas.Font.Size:=18;
  GLForm.Canvas.Font.Color:=clRed;
  GLForm.Canvas.Brush.Style:=bsClear;

  ww:=GLForm.Canvas.TextWidth('Hello World');
  hh:=GLForm.Canvas.TextHeight('Hello World');

  GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
  GLForm.Canvas.TextOut(80,60,'Hello World');
end;

но ничего на прорисовалось

Если мне память не изменяет, вот так должно прорисоваться:

procedure GLForm_OnShow (Sender: TObject; Action: string);
var
Canvas:TCanvas;
ww, hh: Integer;
begin
  SendMessage(GLForm.Handle,274,61728,0);
  Application.ProcessMessages;

  GLForm.Canvas.Font.Size:=18;
  GLForm.Canvas.Font.Color:=clRed;
  GLForm.Canvas.Brush.Style:=bsClear;

  ww:=GLForm.Canvas.TextWidth('Hello World');
  hh:=GLForm.Canvas.TextHeight('Hello World');

  GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
  GLForm.Canvas.TextOut(80,60,'Hello World');
end;

Используйте компонент Edit вместо Label

Точно! Спасибо.

Но опыт пригодится

Для разукрашивания можно использовать свойства компонентов:

Это у меня есть, если вы заметили мне нужен BorderStyle:=bsSingle для Label. Как это сделать?