Uses
  GraphABC;

var
  x, y: integer;
  s: string;
  b: boolean;

begin
  Graphabc.Coordinate.Origin := GraphABC.Window.Center();
  Coordinate.SetMathematic();
  Coordinate.SetScale(10, 10);
  s := '(-5; 4), (-7; 4), (-9; 6), (-11; 6), (-12; 5), (-14; 5), (-12; 4), (-14; 3), (-12; 3), (-11; 2), (-10; 2), (-9; 1), (-9; 0), (-8; -2), (0; -3), (3; -2), (19; -2), (4; 0), (19; 4), (4; 2), (2; 3), (6; 9), (10; 11), (3; 11), (1; 10), (-5; 4)';
  foreach a: string in s.Replace('), (', '),(').Split(',') do
  begin
    X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);
    Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);
    if (b) then
      GraphABC.LineTo(X, Y)
    else
    begin
      GraphABC.MoveTo(X, Y);
      b := true;
    end;
  end;
end.

Сея программа хоть что нарисует, только координаты смени (тут ласточка, а другие в инете найти можно)