как вытянуть данные из txt или memo в TImage

[radiokarazinec]

Помогите пожалуйста. Очень надо, есть программа. надо сделать чтобы при нажатии на кнопку визуализация, она вытигивала данные из txt-файла или Memo и прорисовывала, предварительно сортируя от меньшего к большемую Рисунок ддолжен просто выглядить, белый фон - число, горизонтальная черта, другое число и так далее, можно если удасться слои разными цветами..

ЕСЛИ МОЖНО САМ КОД ПРОГРАММЫ.

[GunSmoker]

Разработка программы на заказ - от 1000 руб.

Подсказка: на форумах вам никто ничего не должен. Если хотите, чтобы вам помогли - покажите свою заинтересованность в задаче. Что вы пытались сделать, что не получилось.

А не так, что "я ничё не знаю, ничё не понимаю, ну-ка напишите мне быстро программу!". Такое - делают за деньги.

[radiokarazinec]

ЭТО код Который я написал(с графикой вообще не дружу)

procedure TfrmMain.BitBtn1Click(Sender: TObject)
var
Out_N : Integer;
  // амплитуда - пример параметра
 //Scale : Double;
  // массив с исходными данными
 Out_Data : array of Double;
  // переменная для записи в файл
 DataFile : TextFile;
  // переменная цикла
Rect:TRect;
i:integer;
begin
with Image1.Canvas do
begin
Rect.Left:=0;
Rect.Top:=0;
Rect.Right:=Image1.Width;
Rect.Bottom:=Image1.Height;
 for i:=1 to Memo1.Lines.Count do
 TextOut(3, 3+(i-1)*TextHeight('out.txt'), Memo1.Lines[i-1]);
//Image1.Picture.LoadFromFile('out.txt');
Canvas.Textout(50,100,'out.txt');
//Canvas.TextRect;
Canvas.MoveTo(50,100);
Canvas.LineTo(50,100);
//Image1.Canvas.FillRect(Rect);

end
end;





end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sibedir]

var
  SL: TStringList;
  i, h, y: Integer;
  s: String;
begin
  SL := TStringList.Create;
  SL.Assign (Memo1.Lines);
//  SL.LoadFromFile ();
  SL.Sort;

  with PaintBox1.Canvas do begin
    h := TextHeight('|') + 3;
    y := 0;
    for i := 0 to SL.Count - 1 do begin
      s := SL[i];
      TextOut(3, y+2, s);
      MoveTo(0  , y);
      LineTo(100, y);
      y := y + h;
    end;
    MoveTo(0  , y);
    LineTo(100, y);
  end;

  SL.Free;
end;